setwd("/Volumes/Data/localDataNoBackup/sfer9710/Development/smfrgsn-devel/Loudness2/CodeProcessing/PlotSubjectiveDataForComparison/")
ld = read.table("../LoudnessData.txt",header=TRUE,sep="\t")

ld1 = subset(ld,Time==0)
nrow(ld1)

levels(ld1$Participant)


names(ld1)


ftable(Permutation~Participant,ld)/130
ftable(File~Gender,ld)/130
